home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / mondu / icn_view.bas < prev   
BASIC Source File  |  1995-02-15  |  1KB  |  30 lines
  1. 10 COLOR ,7:CLS:CLEAR,,,101000:GOSUB*COL:MOUSE 0
  2. 20 DIM A%(50000):V=VARPTR(A%(0))
  3. 30 LOAD@ "\towns.icn",A%
  4. 40 M=2:C=14:GOSUB *C
  5. 50 O=32:N=C0:Y1=0
  6. 60 WHILE N:C20=0
  7. 62 M=2:C=O+6:GOSUB *C:C6=C0:M=4:C=O+12:GOSUB *C:C12=C0
  8. 64 M=2:C=O+2:GOSUB *C:C2=C0
  9. 66 M=2:C=O+8:GOSUB *C:C8=C0
  10. 70 M=1:C=O+5:GOSUB *C
  11. 80 X=8*2^(C0\2)-4*2^(C0\2)*(C0 MOD 2=1):Y=X:IF C0=15GOSUB*S
  12. 110 FOR I=0 TO C2-1
  13. 113 P=-P*(P>=Y)-Y*(P<Y)
  14. 117 IF X1+I*X+X-1>639THEN X1=-I*X:Y1=Y1+P:P=0:IF Y1+Y-1>479THEN GOSUB*P:Y1=0
  15. 120 PUT@A (X1+I*X,Y1)-(X1+I*X+X-1,Y1+Y-1),A%,,,,,(I*C6+C12)/2:N=N-1
  16. 130 NEXT I:O=O+32:X1=X1+C2*X:WEND
  17. 140 GOSUB*P:SYSTEM
  18. 150 *P WHILE NOT MOUSE(2,0) OR MOUSE(2,1) OR INKEY$<>""
  19. 160 WEND:RETURN
  20. 170 *C
  21. 180 C0=PEEK(V+C,M):RETURN
  22. 200 *S
  23. 220 M=2:C=C8+6:GOSUB *C:X=C0
  24. 230 M=2:C=C8+8:GOSUB *C:Y=C0
  25. 240 M=2:C=C8+14:GOSUB *C:C6=C0
  26. 250 RETURN
  27. 260 *COL
  28. 270 FOR I=0 TO 15:READ CG,CR,CB:CG=CG*16:CR=CR*16:CB=CB*16:PALETTE I,[CG,CR,CB]:NEXT:RETURN
  29. 280 DATA 0,0,0, 9,9,9, 8,13,6, 13,15,12, 9,9,9, 12,6,9, 12,12,12, 7,7,7, 2,2,2, 13,13,13, 6,14,5, 5,5,13, 5,5,5, 13,10,14, 12,14,7, 14,14,14
  30.